home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #093 (1990-10)(Amiga User Group Deutschland e.V.).adf / Redcode / Singlebömbi < prev    next >
Text File  |  1990-09-11  |  1KB  |  40 lines
  1. .list on
  2. .symtab on
  3.  
  4. ; Folgende Symbole sind absolut definiert, d.h. bei Referenz ergeben sie
  5. ; den Wert, den sie bei ihrer Definition erhielten. Absolut definierte
  6. ; Symbole sind mächtiger als die Direktive ".relative".
  7.  
  8. .abseq AnzahlUnten: 100            ; Anzahl DAT 0 unter dem Programm
  9. .abseq AnzahlOben : 100            ; Anzahl DAT 0 oberhalb des Programmes
  10. .abseq Inkrement  : 13
  11. .abseq Distanz    : 3111
  12.  
  13. UnteresEnde: dat 0
  14.  
  15. start:       mov #OberesEnde-UnteresEnde-1, UnteresEnde
  16.              mov #Distanz, OberesEnde
  17.              mov #UnteresEnde-zielu-1, zielu
  18.              mov #OberesEnde-zielo+1, zielo
  19.              mov #AnzahlUnten, unten
  20.              mov #AnzahlOben, oben
  21. loop1:       mov #1, @zielu
  22.              sub #Inkrement, zielu
  23.              djn loop1, unten
  24. loop2:       mov #1, @zielo
  25.              add #Inkrement, zielo
  26.              djn loop2, oben
  27.  
  28. copyloop:    mov @UnteresEnde, <OberesEnde
  29.              djn copyloop, UnteresEnde
  30.              jmp @OberesEnde
  31.  
  32. zielu:       dat 0
  33. zielo:       dat 0
  34. unten:       dat 0
  35. oben:        dat 0
  36.  
  37. OberesEnde:  dat 0
  38.  
  39. .end
  40.